Attribute VB_Name = "modGeneral"
Option Explicit

Public Sub TimerDisconnected(Optional ByVal totally As Boolean = False)
    If Not IsConnected Then
        If totally = False Then
            Call MsgBox("Disconnected!", vbExclamation, GAME_NAME)
            Call LoggedOutUser(False)
            Call frmMainMenu.Show
        Else
            Call LoggedOutUser(True)
        End If
    End If
End Sub

'What to do if user is logged out
Public Sub LoggedOutUser(Optional ByVal totally As Boolean = True)
    Call Unload(frmGMain)
    Call Unload(frmLogin)
    Call Unload(frmRegister)
    If totally = True Then
        Call Unload(frmMainMenu)
    End If
End Sub
